i. At What Price are the laptops actually selling ?
#### Histogram of the Retail Price of Computer In 2018
ggplot(Retail_Price_and_Dates) +
aes(x = Retail.Price) +
geom_histogram(bins = 30L, fill = "#1c6155") +
labs(x = "Price", y = "Frequency", title = "Histogram of the Retail Price of Computer", subtitle = "In 2018") +
theme_classic()

#### Boxplot of the Retail Price of Computer In 2018
ggplotly(
ggplot(Retail_Price_and_Dates) +
aes(x = "", y = Retail.Price) +
geom_boxplot(fill = "#1c6155") +
labs(y = "Price", x="",
title = "Boxplot of the Retail Price of Computer", subtitle = "In 2018") +
theme_classic()
)
print(paste("Last Recorded Prices are", Actual_Price[1,1], "USD", "and", Actual_Price[2,1],"USD","on the same Day with a mean of",mean(Actual_Price$Retail.Price),"USD"))
## [1] "Last Recorded Prices are 406 USD and 530 USD on the same Day with a mean of 468 USD"